home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / autolock_selbx.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  3.6 KB  |  184 lines
  1. # CVS $Id: autolock_selbx.tcl,v 1.1 1995/02/03 17:15:10 zibi Exp $
  2. #
  3. # Example program for selection box
  4. #
  5.  
  6. source tools.tcl
  7.  
  8. set flag one
  9.  
  10. proc quitCB {cbs} {
  11.     VtClose
  12.     exit 0
  13. }
  14.  
  15. proc okCB { cbs} {
  16.      global answerBox
  17.  
  18.      set cb_value [keylget cbs selection]
  19.      VtSetValues $answerBox -value "Selection: $cb_value"
  20.      sleep 2
  21.      VtUnLock
  22. }
  23.  
  24. proc popDownCB {cbs} {
  25.     global answerBox
  26.  
  27.     set sbox [keylget cbs widget]
  28.  
  29.     set value [VtGetValues $sbox -selection]
  30.     VtSetValues $answerBox -value "Selection: $value"
  31.  
  32.     VtHide $sbox
  33.     sleep 2
  34.     VtUnLock
  35. }
  36.  
  37. proc changeItemsCB { cbs} {
  38.      global flag
  39.  
  40.      set sbox [keylget cbs widget]
  41.  
  42.      if {$flag == "one"} {
  43.          VtSetValues $sbox -itemList {{four} {five} {six}}
  44.          set flag two
  45.      } else {
  46.          VtSetValues $sbox -itemList {{one} {two} {three}}
  47.          set flag one
  48.     }
  49.     sleep 2
  50.     VtUnLock
  51.  
  52. }
  53.  
  54.  
  55. proc defaultCB {cbs} {
  56.  
  57.     set but [keylget cbs widget]
  58.  
  59.     set sb1 [VtSelectionDialog $but.default  \
  60.                     -title "Default Selection Box" \
  61.                     -itemList { {one}
  62.                             {two}
  63.                             {three}} \
  64.                     -okCallback okCB -autoLock okCB]
  65.     VtShow $sb1
  66. }
  67.  
  68. proc itemListCB {cbs} {
  69.  
  70.     set dialog [keylget cbs dialog]
  71.     set sb [GetDialogKey $dialog itemListDialog]
  72.  
  73.     if {$sb == ""} {
  74.         set sb [VtSelectionDialog $dialog.sb \
  75.                         -title "Changing Items" \
  76.                         -itemList { {one}
  77.                                 {two}
  78.                                 {three}} \
  79.                         -okCallback popDownCB \
  80.                         -autoDestroy False \
  81.                         -autoHide False \
  82.                         -cancelLabel CHANGE_LIST \
  83.                                 -cancelCallback changeItemsCB \
  84.                         -autoLock {popDownCB changeItemsCB}]
  85.         SetDialogKey $dialog itemListDialog $sb
  86.     }
  87.     VtShow $sb
  88. }
  89.  
  90. proc selectionCB {cbs} {
  91.  
  92.     set but [keylget cbs widget]
  93.  
  94.     set sb1 [VtSelectionDialog $but.default \
  95.                     -title "Setting Selection" \
  96.                     -itemList { {one}
  97.                             {two}
  98.                             {three}} \
  99.                     -selection two \
  100.                     -okCallback okCB -autoLock okCB]
  101.     VtShow $sb1
  102. }
  103.  
  104. proc defaultButtonCB {cbs} {
  105.  
  106.     set but [keylget cbs widget]
  107.  
  108.     set sb1 [VtSelectionDialog $but.default \
  109.                     -title "-defaultButton Cancel"\
  110.                     -okCallback okCB \
  111.                     -defaultButton CANCEL -autoLock okCB]
  112.     VtShow $sb1
  113. }
  114.  
  115. proc filenameCB {cbs} {
  116.  
  117.     set but [keylget cbs widget]
  118.  
  119.     set sb1 [VtSelectionDialog $but.default \
  120.                     -title "-filename animals"\
  121.                     -filename animals \
  122.                     -okCallback okCB  -autoLock okCB]
  123.     VtShow $sb1
  124. }
  125.  
  126.  
  127. proc autoHideCB {cbs} {
  128.     set dialog [keylget cbs dialog]
  129.     set sb [GetDialogKey $dialog autoHideDialog]
  130.  
  131.     if {$sb == ""} {
  132.         set sb [VtSelectionDialog $dialog.default  \
  133.                     -title "AutoHide False" \
  134.                     -itemList { {one}
  135.                             {two}
  136.                             {three}} \
  137.                     -cancelCallback popDownCB \
  138.                     -autoHide False \
  139.                     -autoDestroy False -autoLock popDownCB]
  140.  
  141.         SetDialogKey $dialog autoHideDialog $sb
  142.     }
  143.     VtShow $sb
  144. }
  145.  
  146.  
  147. #
  148. # Start Program
  149. #
  150. #
  151.  
  152. set app [VtOpen selboxes]
  153.  
  154. set fn [VtStartForm $app.form -title "Selection Boxes"]
  155.  
  156. set rc [VtRowColumn $fn.rc1]
  157. VtPushButton $rc.but1 -label "DEFAULT" \
  158.               -callback defaultCB
  159. VtPushButton $rc.but2 -label "-itemList" \
  160.               -callback itemListCB
  161. VtPushButton $rc.but3 -label "-selection" \
  162.               -callback selectionCB
  163. VtPushButton $rc.but4 -label "-defaultButton CANCEL" \
  164.                       -callback defaultButtonCB
  165. VtPushButton $rc.but6 -label "-autoHide False" \
  166.                       -callback autoHideCB
  167. VtPushButton $rc.but7 -label "-filename animals" \
  168.                       -callback filenameCB
  169.  
  170. set answerBox [VtText $rc.selection -readOnly]
  171.  
  172. VtPushButton $rc.but8 -label QUIT \
  173.               -callback quitCB
  174.  
  175. #
  176. #keep info about itemlist and autohide dialog since they are not destroyed
  177. #
  178. SetDialogKey $fn itemListDialog ""
  179. SetDialogKey $fn autoHideDialog ""
  180.  
  181. VtShow $fn
  182. VtMainLoop
  183.  
  184.